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IOPACK 


DECUS Program Library Write-up DECUS No. 8-272 


ABSTRACT 

IOPACK is one page long and contains: MESAGE for printing 
messages; OCTIN and DECIN for inputting unsigned octal or deci¬ 
mal numbers; OCTOUT and DECOUT for outputting unsigned octal 
or decimal numbers. 

REQUIREMENTS 

Family-of-eight computer with teletype. 

Storage 

200g locations. 

USAGE 

MESAGE is called using a JMS with the address of a 
Macro-8 produced text string contained in the AC. This routine 
uses a % to produce a carriage-return and a # to produce a line¬ 
feed. The return is made to the location following the call to 
MESAGE with the AC and LINK set to zero. Note: the text does 
not follow the call to MESAGE. 

OCTIN, DECIN are called using a JMS. The user is to enter 
either an octal or decimal number from the keyboard. Illegal ASCII 
character values above 300 Q restart these routines and cause a 











back-arrow to be typed. Those values below 300g terminate the 
input. The terminating character is not echoed and is stored in 
location 0 of the page IOPACK is on (MESAGE's entry point). The 
return is made to the location following the call with the resultant 
number (DECIN converts decimal to binary) contained in the AC and 
with a clear LINK. Input values should not exceed the capacity of 
one twelve-bit computer word (7777 octal or 4095 decimal) otherwise 
the results are uncertain. 


OCTOUT, DECOUT are called using a JMS. Four digits are 
typed (DECOUT converts binary to decimal). The return is made to 
the location following the call with a clear AC and LINK. 

Location 24 is assumed to contain the address of teleprinter 
support routine which is assumed to return with a clear AC. Loca¬ 
tion 25 is assumed to contain the address of a reader support rou¬ 
tine which returns with input characters contained in the AC. 


RESTRICTIONS 

This set of routines is page relocatable. 
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1200 

1201 

1202 

1203 

1 204 

120 5 

1206 

1207 

1210 

121 1 

1212 

1213 

1214 

1215 

1216 

121 7 

1220 

1221 

1222 

1223 

1 224 

1225 

1226 

1 227 

1230 

1231 

1232 

1233 


0000 
3234 
1634 
7012 
7012 
7012 
4213 
1 634 
4213 
2234 
5202 

0000 

7100 

0377 

7450 

5600 

1376 

7510 

1375 

1374 

7450 

1373 

1372 

7450 

1371 

1370 

4424 

5613 


/UNSIGNED I-0 UTILITY PACKAGE 
/ 

/CONTAINS: 

/ MESAGE 
/ OCTIN 
/ DECIN 
/ OCTOUT 
/ DECOUT 
/ 

/BRIAN BARTON AND KURT METZGER 
/COOLEY ELECTRONICS LABORATORY 
/UNIVERSITY OF MICHIGAN 
/ANN ARBOR# MICHIGAN 48105 
/ MARCH 5# 19 70 
/ 

*1200 

/ 

/MESAGE ROUTINE 
/ 

/ USE: TAD <MLOC /ML0C=ADDRESS OF TEXT 
/ JMS MESAGE 

/ /RETS HERE WITH C(AC>=C(L>=0 

/ 

MESAGE# 0 /AC=ADDR OF TEXT 
DCA OCTIN /USE AS A TEMP 
TAD I OCTIN /GET WORD 
RTR 
RTR 
RTR 

JMS TYPCH /TYPE LH 
TAD I OCTIN 
JMS TYPCH /TYPE RH 
ISZ OCTIN /ADV PTR 
JMP MESAGE+2 
/ 

TYPCH# 0 /TYPES 

CLL /SO EXITS WITH CLEAR LINK 
AND (77 

SNA /O TERMINATES 
JMP I MESAGE /RETURN 
TAD (-40 

SPA /WILL BE A 200 CODE 
TAD (100 /WILL BE A 300 CODE 
TAD (-5 /CHECK FOR CR % 

SNA 

TAD (-30 /ENDS UP AS 215 
TAD (2 /SEE IF LINE FEED # 

SNA 

TAD (-31 /END UP AS 212 
TAD (243 /GET ASCII 
JMS I TYPE /TYPE IT 
JMP I TYPCH /END 
/ 

/ 

/UNSIGNED OCTAL INPUT 
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1234 

0000 

1 235 

7300 

1236 

1355 

1 237 

3262 

1 240 

1 357 

1 241 

3304 

i 242 

3213 

1 243 

442 5 

1 244 

0367 

1 245 

1366 

1 246 

3200 

1 247 

1200 

1250 

1365 

1 251 

7510 

1252 

5272 

1253 

1304 

1 254 

7700 

1255 

5272 

1 256 

1200 

1257 

4424 

1 260 

1213 

1261 

7106 

1 262 

7000 

1 263 

7104 

1264 

321 3 

1 265 

1200 

1266 

1365 

1267 

1213 

1 270 

321 3 

1 271 

5243 

1 272 

7300 

1 273 

1200 

1274 

1364 

t 275 

7710 

1 276 

5302 

1277 

1363 

1 300 

4424 

1 301 

5242 

1 302 

1213 

1 303 

5634 


/ 

/ USE; JMS OCTIN 

/ /RETS HERE WITH C(AC)=VALUE CCL)=0 


/THE TERMINATING CHARACTER IS SAVE IN CCMESAGE) 
/ CODES BELOW 300 (OCTAL) TERMINATE 

/ CODES ABOVE 277 (OCTAL) RESTART ROUTINE 

/ RESTART IS INDICATED BY «• BEING TYPED 

OCTIN, 0 /OCTAL INPUT, 4 DIGITS MAX 
CLA CLL 

OVERM, TAD OCTTAB /TAD (NOP 
DCA DFX /DO OCTAL 


TAD OCTTAB+2 /TAD (-10 
DCA DECIN /USE AS TEMP 


VAL FOR OCTAL TEST 


DCA OCTOPT /O OUTPUT VALUE 
OCTA, JMS I READ /GET CHARACTER 
AND (177 

TAD (200 /FORCE PARITY 
DCA OCTINP /SAVE 
TAD OCTINP 


TAD (-260 /SEE IF .GE. 260 

SPA /SKIP IF IT MIGHT BE VALID 

JMP OCTC /TERMINATE 

TAD DECIN /SEE IF IN PROPER RANGE 

SMA CLA /SKIP IF OK 

JMP OCTC /GREATER THAN INTEGERS 

TAD OCTINP 


JMS I TYPE 

TAD OCTOPT /MULTIPLY BY 8 
CLL RTL /MULT BY 4 
DFX, NOP /OR .TAD OCTOPT FOR DECIMAL 
CLL RAL /MULT BY 2 
DCA OCTOPT 
TAD OCTINP 


TAD (-260 /GET VALID VALUE 
TAD OCTOPT /UPDATE VALUE 
DCA OCTOPT 

JMP OCTA /MORE ALLOWED 
OCTC, CLA CLL 
TAD OCTINP 

TAD (-300 /BELOW 300 TERMINATES 

SPA CLA /ABOVE IS - I.E. KILL NUMBER 

JMP OVERL 

TAD (337 /- 

JMS I TYPE 

JMP OCTA-1 /RESTART 

OVERL, TAD OCTOPT /USED AS A OVERLAY CONSTANT 
JMP I OCTIN /RET W AC=VALUE L=0 

/ 


/UNSIGNED DECIMAL INPUT ROUTINE 
/ USE; JMS DECIN 

7 /RETS HERE WITH C(AC) = VALUE C(L)=0 
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1 304 
l 305 
1 30 6 
1 307 
1 310 
1 31 1 
1 312 
1 313 


0000 

7300 

130 4 

3234 

1302 

3262 

7344 

5240 


1 314 
1 31 5 
1 316 
1317 
.1 320 
1321 
1 322 
1 323 
1 324 
1 325 
1 326 
1327 

1330 

1331 
1 332 

1333 

1334 
1 335 

r 1336 
1337 
1 340 
1 341 
1 342 


/SEE NOTES FOR OCTIN ON TERMINATORS 
/ 

decin* 0 

XAD DECIN /SET UP OCTIN FOR DECIMAL 
DCA OCTIN /Fix RET POINT 
TAD OVERL /TAD <TAD OCTOPT 

dca dfx /set up overlay 

STA CLL RAL /AC=-2 
JMP OCTA-3 /ENTER OCTIN 

/ 

/UNSIGNED OCTAL OUTPUT ROUTINE 
/ 

USE: TAD VALUE 

JMS °ctout^ ets here with CIAC )=CCL)=0 


0000 
330 4 
1236 
332 5 
1362 
3343 
3200 
1304 
7100 
1355 
7420 
5333 
2200 
3304 
5323 
7300 
1200 
1361 
4424 
2325 
2343 
5322 
5714 


/ 

/ 

/ 

/ 


.UNSIGNED 


OCTOUT* 0 /OCTAL OUTPUT- 
DCA DECIN /SAVE VALUE 

TAD OVERM /TAD CTAD OCTTAB . nr 

DCA OCTPTR /SET UP DIVIDE TABLE LOC 

TAD <-4 titd 

dca decout /use as a counter 

OCTLA, DCA MESAGE /USE As A DIVIDEND 
TAD DECIN /GET VALUE 
CLL /USE LINK TO F ™ D ^ERFLOW 
OCTPTR* TAD OCTTAB /OR TAD DEC 
SNL /L=0 MEANS LOOP DONE 
IMP #+4 

I5Z MESAGE /ADD 1 TO DIVIDEND 
DCA DECIN ySAVE REMAINDER 
JMP OCTLA+1 /SUBTRACT AGAIN 

TAD MESAGE /HAVE THE DESIRED DIGIT 
TAD (260 /MAKE ASCII 
JMS I TYPE 

1321 OCTPTR /ADV PTR IN TABLE 
ISZ DECOUT /4 DIGITS? 

Z f JcVuWYES. EX IT CCAC>=CCL>=0 

/ 

/UNSIGNED DECIMAL OUTPUT ROUTINE 
/ 

USE: TAD VALUE 

JMS DEC0 ^ et here with C<AC) = C<L)=0 


/ 

/ 

/ 

/ 


1 343 

0000 

1 344 

3304 

1345 

1343 

1346 

3314 

1347 

1362 

1350 

5316 


DECOUT* 0 /DECIMAL OUTPUT..UNSIGNED 
DCA DECIN /OUTPUT THIS ^ AEBE 
TAD DECOUT /USE OCTOUT ROUTINE 
DCA OCTOUT 

TAD C-4 /USE DECIMAL TABLE 
JMP 0CTOUT+2 
/ 
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1 351 

1352 

1353 
1 354 
1 355 
1 356 
1 357 
1 360 


6030 

7634 

7766 

7777 

7000 

7700 

7770 

7777 


6030 /-1000 DECIMAL 
7634 /-100 DECIMAL 
7766 /-10 DECIMAL 
7777 /-I DECIMAL 
OCrTABj 7000 /-1000 OCTAL 
7700 /-100 OCTAL 
7770 /-10 OCTAL 
7777 /-i OCTAL 


1361 0260 

1362 7774 

1363 0337 

1364 7500 

1365 7520 

1366 0200 

1367 0177 

1370 0243 

1 371 7747 

1372 0002 

1373 7750 

1374 7773 

1375 0100 

1376 7740 

1377 0077 


OCTINP=MESAGE 
OCTOPT= TYPCH 
TYPE=24 /ADDR OF TYPE 
READ=25 /ADDR OF READ 

PAGE 


ROUTINE..RETS 
ROUTINE..RETS 


WITH AC=0 
WITH ASCII IN 










